(in-package :tartlet)

(defun r->d (x)
    (/ (* x 180.0d0)
       pi))

(defun d->r (y)
    (/ (* y pi)
       180.0d0))

(defun make-directed-vector (radian-angle &optional (length 1))
    (make-vector2 (* (cos radian-angle) length)
                  (* (sin radian-angle) length)))
